home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / util / wb / DirScanner.lha / DirScanner / Rexx / DSVisageSlide.dsrx next >
Encoding:
Text File  |  2000-05-31  |  706 b   |  38 lines
  1. /*
  2.    $VER: DSVisageSlide.dsrx 1.2 (30.5.00) Copyright (c) Nils Görs
  3. */
  4.  
  5. Visage = "s:Visage.bat"        /* Visage.bat is a frontend with several Visage settings i prefer */
  6. OutPut = "t:DS_VisageSlide."    /* the PortName from DirScanner will be added after the dot. */
  7.  
  8. options results
  9.  
  10. PARSE ARG DSPort
  11. IF DSPort = "" THEN DSPort = DIRSCANNER.1
  12. address value DSPort
  13.  
  14. unique=TIME('s')
  15. Catalog = output||unique||"."||DSPort
  16.  
  17. SET LOCKGUI 1
  18.  
  19. open(outfile,catalog,'W')
  20.  
  21. more = 1
  22. DO WHILE more
  23.     GOTO NEXTSEL
  24.     more = result
  25.     IF more = 1 THEN DO
  26.         GET MATCH_FILE
  27.         writeln(outfile,result)
  28.     END
  29.     ELSE more = 0
  30. END
  31.  
  32. close(outfile)
  33.  
  34. ADDRESS COMMAND Visage "LIST" Catalog
  35. ADDRESS COMMAND "Delete >NIL:" Catalog
  36.  
  37. SET LOCKGUI 0
  38.